home *** CD-ROM | disk | FTP | other *** search
- object SiparDM: TSiparDM
- OldCreateOrder = True
- Left = 388
- Top = 205
- Height = 164
- Width = 207
- object SipTable: TTable
- DatabaseName = 'c:\math\01999'
- OnFilterRecord = SipTableFilterRecord
- TableName = 'SIPARIS.DB'
- Left = 32
- Top = 16
- object SipTableSipTip: TStringField
- FieldName = 'SipTip'
- Size = 1
- end
- object SipTableSipno: TIntegerField
- FieldName = 'Sipno'
- end
- object SipTableSipTar: TDateField
- FieldName = 'SipTar'
- EditMask = '90\.90\.0000;1;_'
- end
- object SipTableSipCarNo: TStringField
- FieldName = 'SipCarNo'
- Size = 10
- end
- object SipTableSipCUnvan: TStringField
- FieldName = 'SipCUnvan'
- Size = 30
- end
- object SipTableSipTalepTar: TDateField
- FieldName = 'SipTalepTar'
- EditMask = '90\.90\.0000;1;_'
- end
- object SipTableSipVerKisi: TStringField
- FieldName = 'SipVerKisi'
- Size = 25
- end
- object SipTableSipAlanKisi: TStringField
- FieldName = 'SipAlanKisi'
- Size = 25
- end
- object SipTableSipDipNot1: TStringField
- FieldName = 'SipDipNot1'
- Size = 80
- end
- object SipTableSipDipNot2: TStringField
- FieldName = 'SipDipNot2'
- Size = 80
- end
- object SipTableSipDipNot3: TStringField
- FieldName = 'SipDipNot3'
- Size = 80
- end
- object SipTableSipOIskO: TFloatField
- FieldName = 'SipOIskO'
- DisplayFormat = '#,##0.00'
- end
- object SipTableSipOTut: TFloatField
- DisplayWidth = 30
- FieldName = 'SipOTut'
- OnSetText = SipTableSipOTutSetText
- DisplayFormat = '#,##0.00'
- EditFormat = '#,##'
- end
- object SipTableSipAmbalaj: TFloatField
- FieldName = 'SipAmbalaj'
- OnSetText = SipTableSipAmbalajSetText
- DisplayFormat = '#,##'
- EditFormat = '#,##'
- end
- object SipTableSipDvKod: TStringField
- FieldName = 'SipDvKod'
- Size = 3
- end
- object SipTableSipTamam: TBooleanField
- FieldName = 'SipTamam'
- end
- object SipTableSipKalIsk: TFloatField
- FieldName = 'SipKalIsk'
- end
- object SipTableSipTut: TFloatField
- FieldName = 'SipTut'
- end
- object SipTableSipKdvO1: TFloatField
- FieldName = 'SipKdvO1'
- end
- object SipTableSipKdvO2: TFloatField
- FieldName = 'SipKdvO2'
- end
- object SipTableSipKdvO3: TFloatField
- FieldName = 'SipKdvO3'
- end
- object SipTableSipKdvO4: TFloatField
- FieldName = 'SipKdvO4'
- end
- object SipTableSipKdvO5: TFloatField
- FieldName = 'SipKdvO5'
- end
- object SipTableSipKdv1: TFloatField
- FieldName = 'SipKdv1'
- end
- object SipTableSipKdv2: TFloatField
- FieldName = 'SipKdv2'
- end
- object SipTableSipKdv3: TFloatField
- FieldName = 'SipKdv3'
- end
- object SipTableSipKdv4: TFloatField
- FieldName = 'SipKdv4'
- end
- object SipTableSipKdv5: TFloatField
- FieldName = 'SipKdv5'
- end
- end
- object DtsSipar: TDataSource
- DataSet = SipTable
- Left = 88
- Top = 16
- end
- object Siphtable: TTable
- AfterInsert = SiphtableAfterInsert
- BeforePost = SiphtableBeforePost
- OnCalcFields = SiphtableCalcFields
- OnPostError = SiphtablePostError
- DatabaseName = 'c:\math\01999'
- IndexFieldNames = 'SiphTip;Siphno'
- MasterFields = 'SipTip;Sipno'
- MasterSource = DtsSipar
- TableName = 'SIPHAR.DB'
- Left = 28
- Top = 76
- object SiphtableSiphTip: TStringField
- FieldName = 'SiphTip'
- Size = 1
- end
- object SiphtableSiphno: TIntegerField
- FieldName = 'Siphno'
- Required = True
- end
- object SiphtableSiphtar: TDateField
- FieldName = 'Siphtar'
- Required = True
- EditMask = '90\.90\.0000;1;_'
- end
- object SiphtableSiphStok: TStringField
- FieldName = 'SiphStok'
- Required = True
- end
- object SiphtableSiphSira: TIntegerField
- FieldName = 'SiphSira'
- Required = True
- end
- object SiphtableSiphCarNo: TStringField
- FieldName = 'SiphCarNo'
- Size = 10
- end
- object SiphtableSiphCinsi: TStringField
- FieldName = 'SiphCinsi'
- Size = 40
- end
- object SiphtableSiphMin: TFloatField
- FieldName = 'SiphMin'
- end
- object SiphtableSiphMinBr: TStringField
- FieldName = 'SiphMinBr'
- Size = 3
- end
- object SiphtableSiphMik: TFloatField
- FieldName = 'SiphMik'
- OnSetText = SiphtableSiphMikSetText
- DisplayFormat = '#,##0.00'
- end
- object SiphtableSiphBr: TStringField
- FieldName = 'SiphBr'
- Size = 8
- end
- object SiphtableSiphBrf: TFloatField
- FieldName = 'SiphBrf'
- OnSetText = SiphtableSiphBrfSetText
- DisplayFormat = '#,##0.00'
- end
- object SiphtableSiphIsk: TFloatField
- FieldName = 'SiphIsk'
- end
- object SiphtableSiphKdv: TFloatField
- FieldName = 'SiphKdv'
- end
- object SiphtableSiphTutC: TFloatField
- FieldName = 'SiphTutC'
- end
- object SiphtableSiphTamam: TBooleanField
- FieldName = 'SiphTamam'
- end
- object SiphtableSiphFisNo: TIntegerField
- FieldName = 'SiphFisNo'
- end
- object Siphtablebrmik: TFloatField
- FieldKind = fkCalculated
- FieldName = 'brmik'
- Calculated = True
- end
- end
- object DtsSiphar: TDataSource
- DataSet = Siphtable
- Left = 92
- Top = 72
- end
- end
-